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TBKST 1b-se Sep-1984 VAX-11 Bliss-32 V4.0-742 

vO6=000 300-1984 98: HY $f DISKSVMSMASTER: CTRACE - SRCJTBKSTO.832; FF 
MODULE TBKSTO ( IDENT = ‘V04-000° ) = 

BEGIN 


ESE S ISIS SSI TTT TTT TT TTT TTT Terre iri cri rir iii iii i titi iii ii iii iiiiiiiiiit 


'® 

it COPYRIGHT (o 1978, 1980, 1982, 1984 B 

it DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

is ALL R EHTS” RES ERY VED. 

ie THIS SOFTWARE IS FUR 

it ONLY IN ACCORDANCE OF S$ 

ie INCLUSI 1 H 
COPI ROVIDED OR OTHER 
OTHER PER F 


O AND OWNERSHIP O 


I 
$ 
I 
$ 
'® $ 
Ie 


'@ 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOT 
i oobpokat itn." NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPM 


'® 
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IC 
EN 


# 
* 
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0 a 
it TRANSFERRED. . 
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3 1 9 3 
eS ) 3 
3 5 1 § 
3 8 1 3 
; 1 3 
3 8 1 : 
; g 1 ; 
= 1 3 
3 1} ! : 
3 18 1 ; 
: 14 1 3 
; 9 1 3 
; = 1 3 
3 17 1 3 
; 1 3 
: 8 : 
3 1 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 3 
: § } ce SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; 
; 4 ie 3 
3 2 1 PTTTIITILILITI LILI LLL LL LITT LTLi Tit Tiiiiitiiiiiiiiiiiiiiiitiiiti P 
; 1! Py 
3 7 1 ! FACILITY: 3 
3 8 1! TRACEBACK 3 
3 9 1! 3 
3 0 1 i+e F 
3 1 ; 1 | Abstract 3 
; ¢ ; ! Seitecee global variables for DEBUG facility : 
; 4 1 ! Version: 09 3 
3 $2 1! 3 
3 6 1! Miatery: F 
3 7 37 1! uthor: 3 
: : ; ' } Carol Peters, 11 January 1978 : Version 01 : 
; 40 40 1! Modified Rf 3 
; re ‘oh ! : e Roedger, 15 June 1978: Version 08 : 
3 ‘§ tt ! Revision history: : 
3; 26 «645 45 1! 02 19-jan-78 KGP -Add vor lables TBK$... for 3 
; 646 peg 1! commun ‘gation with other TBK modules. 3 
> Fr 047 1! 03 28-feb-78 KGP -Commun es ton variables for the 3 
; 48 bee 1! ALU nonnd face 3 
; | (49 49 1! 04 1-mar-78 KGP - non-d agnostic output now gets : 
: 0 50 1! uilt in an output buffer so that we 3 
: 1 51 1! only do 1 $PUT. 3 
: § 52 1! “We now have another RAB for d 
3 2 : 2 SYSSER ROR, one longer have : 
: 4 054 1! any FABs at all for euteuy. 3 
; 5 7. 3 05 2-mar-78 KGP Pane ng ex ept on 7tP e for : 
: § 2$ 1! € ggrreke on Ts now decided 3 
; 057 1! in BAS Cis no longer local to DPC) : 


H 4 
ae ets re CL ea See eS cde rt et ee a 


: 39 33 } } 06 8-mar-78 KGP “Ney re uive ile nenes gince now 

; re bet 1 07 26-APR-78 DAR Wod\ ted require and library directives 
; or ve build. 

3 o¢ bes 1! 08 15-JUN-78 DAR Changed all DBG$ symbols to TBK$. 

‘- ©€ 0063 1! 09 3-Nov-79 JBD Added support for statement numbers. 

> 664 0064 1! 15-Aug-83 PS Did general clean up to use updated 

: o? Bpe2 ! a files from DEBUG. 


a 
e 
7 
o 
. 
o 
e 
o 
o 
. 
a 
+ 
° 
2 
e 
o 
. 
° 
. 
. 
2 
. 
e 
° 
° 
° 
e 
7 
e 
° 
e 
° 
td 
2 
. 
e 
o 
e 
. 
2 
a 
° 
a 
e 
e 
. 
@ 
. 
e 
2 
e 
. 
ao 
o 
e 
° 
e 
. 
e 
- 
° 
. 
o 
. 
o 
+ 
e 
. 
e 
. 
td 
. 
o 
© 
° 
. 
e 
7 
e 
. 
a 
. 
e 
. 
e 
o 
e 
. 
2 
7 
a 
o 
e 
. 
o 
. 
a 
. 
o 
. 
, 
. 
° 
o 
. 
o 


COOOnOOWOOon NAN NNNINIO OO 
UEWN—"OODONOULS WN —O0O@ 


OOOCOCCOCOCOGCOCOCOOOCOOOSoOoO 


SOOOCOCOCOCOOOSCOoOoOoOoOoOoOoOOoOOo 


—Oo00co oo Oo 
SS uP ARE SSO UES 


N se 


Include files: 
REQUIRE 'SRC$:TBKPROLOG.REQ'; 


! Global variables: 


! 

i 

' 

GLOBAL LITERAL 

The base of RST storage. Some of the RST 

gate structures base pointers’ off this. 
"7FFFOOOO'; 


tbk$_rst_begin 
GLOBAL 


! ALL non=-diagnostic output goes thru 
! this buffer. 


iP Pointers to the TRACEBACK output routine. 


TBKSMODULE_CS : CS_POINTER 
TBKSROUTINE_CS : CS_POINTER, 
TBKSGL_STMT. 

TBKS$GL LINE, 

TBKSREC_PC, 


TBKSMODULE_DST : REF DSTSRECORD, 


144 
' Declare the RAB blocks for gtitout 
! to SYSSOUTPUT and SYSSERRO 
‘}, 
Q); 


tbk$gl_ outprab: $RAB 
tbk$gl"errrab: $RAB 
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1 
0 EL UDOM 


-TITLE TBKSTO 
IDENT \V04-000\ 


-PSECT TBKSGLOBAL ,NOEXE, 
00000 VOKS6L EXE Tyres) 
00004 Texsoureus pars 
00088 vexser ou} paRse 
QOO8C TBKSGL_BUF _SIZ:: 


132 


<- 
ow 


1ergeb 1382 94:30:58 «| Mew ShAg#e3? c]TBKsT0.B32<4°" ( 


TBKSGL_EXC_TYPE, ! Initial FAULT/TRAP type for PC correlation. 


tbk$output_buf : vector(_ reat _out_ width, byte J, 

Hsttee out_str : ref VECTO BYTE], ! POINTS INTO CURRENT OUTPUT BUFFER. 
tbk$gl"buf_siz, ! holds current character count in output buffer 
lee 
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VO0=000 18-00-19 9g aoise | baScbiwGhASfERsc TRACE ¢hcaTeKsto.83204%" « 
00090 TeKSMODULE- eS: 
00094 TBKSROUTINE CS:: 
00098 TBKSGL_STMT:: 
0009C TBKSGL_LINE:: 
QOOAO TBKSREL_PC:: 
QO0A4 TBKSMODULE DST:: 
01 0008 TBKSGL_OUTPRAB: : 


(3) 


Sete Se Se Se Ge Se Se Se Se Se Se Se Be Se Be Be Se Se Ge Se Se Se Se Ss 


TBKSGL_ERRRAB: : 
BYTE 
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TBKST 16-50 Sep-1984 
vo4=000 10=35p=198e 19:20:85 
000000 1 | LONG 
1 ‘ ut 
1 BYT 
1 - YT 
1 -BYTE 
106 LONG 
108 .LONG 
10C LONG 
TBKS$_RST_BEGIN== 
; PSECT SUMMARY 
; Name Bytes Attributes 
: TBKSGLOBAL 304 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, 
i Oe 0 NOVEC.NOWRT.NORD ;NOEXE.NOSHR, LCL. ABS. 
: Library Statistics 
: oe ewe oem Symbol s ome Te So Pages 
2 File Total Loaded Percent Mapped 
: _$255$DUA ESYSLIBILI .L32;1 18619 1 0 1000 
> 7$255$pDUA RACE .OBJ )TBKLIB.L32;1 157 1 14 
: 7$255$puUA PTRACE: 0B) JSTRUCDEF tie: 1 32 0 7 
> 7$255$DUA28:CTRACE .OBJJTBKDST.L3 414 10 24 30 


COMMAND QUALIFIERS 


2147418112 


CON, Sire bth t 
CON, NOPIC,ALIGN(O) 


Processing 
Tim 


0-742 
ACE.SRCJTBKSTO.B3209°" ( 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$: TBKSTO/OBJ=0BJ$: TBKSTO MSRC$: TBKSTO/UPDATE=(ENHS$: TBKSTO) 


Sizes 0 code + 
Flapsed. Time: :32. 
Lines/CPU Min: 5 

Petals Rete: 1 


Used: 87 pages 
Compilation Complete 


Qn data bytes 


040 AH-BT13A-SE | NT CORPORATION 


VAX/VMS V4.0 D PROPRIETARY 


